home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Programming / SecalDemo / Inc / tagcalls / wb.inc < prev   
Encoding:
Text File  |  1998-06-24  |  833 b   |  28 lines
  1. pattern AddAppIcon(_id,_userdata,_text,_msgport,_lock,_diskobj, ...) is
  2.     push a2\a3\a4\a6;
  3.     push.l ...;
  4.     safe d0.l:=_id; d1.l:=_userdata; a0:=_text; a1:=_msgport; a2:=_lock; a3:=_diskobj; a4:=sp;;
  5.     a6:=WorkbenchBase; jsr [a6-60];
  6.     sp:=sp+countof(...)<<2;
  7.     pop a2\a3\a4\a6;
  8. endp;                                                            # ADDAPPICON
  9.  
  10. pattern AddAppMenuItem(_id,_userdata,_text,_msgport, ...) is
  11.     push a2\a6;
  12.     push.l ...;
  13.     safe d0.l:=_id; d1.l:=_userdata; a0:=_text; a1:=_msgport; a2:=sp;;
  14.     a6:=WorkbenchBase; jsr [a6-72];
  15.     sp:=sp+countof(...)<<2;
  16.     pop a2\a6;
  17. endp;                                                            # ADDAPPMENUITEM
  18.  
  19. pattern AddAppWindow(_id,_userdata,_window,_msgport, ...) is
  20.     push a2\a6;
  21.     push.l ...;
  22.     safe d0.l:=_id; d1.l:=_userdata; a0:=_window; a1:=_msgport; a2:=sp;;
  23.     a6:=WorkbenchBase; jsr [a6-48];
  24.     sp:=sp+countof(...)<<2;
  25.     pop a2\a6;
  26. endp;                                                            # ADDAPPWINDOW
  27.  
  28.